object frmRecordatorio: TfrmRecordatorio
  Left = 221
  Top = 232
  Width = 494
  Height = 316
  Caption = 'Recordatorio'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    486
    282)
  PixelsPerInch = 96
  TextHeight = 13
  object lblFechaIni: TLabel
    Left = 9
    Top = 11
    Width = 28
    Height = 13
    Caption = 'Inicio:'
  end
  object lblFechaFin: TLabel
    Left = 134
    Top = 11
    Width = 25
    Height = 13
    Caption = 'Final:'
  end
  object DBMemo1: TDBMemo
    Left = 8
    Top = 32
    Width = 467
    Height = 213
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataField = 'RECORDATORIO'
    DataSource = sRecordatorio
    TabOrder = 0
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 252
    Width = 228
    Height = 25
    DataSource = sRecordatorio
    VisibleButtons = [nbPrior, nbNext, nbInsert, nbDelete, nbPost, nbCancel]
    Anchors = [akLeft, akBottom]
    Flat = True
    TabOrder = 1
  end
  object edtFechaIni: TDateEdit
    Left = 45
    Top = 5
    Width = 76
    Height = 21
    Ctl3D = False
    DefaultToday = True
    DialogTitle = 'Seleccione una Fecha'
    NumGlyphs = 2
    ParentCtl3D = False
    YearDigits = dyTwo
    TabOrder = 2
    Text = '07/12/06'
  end
  object edtFechaFin: TDateEdit
    Left = 167
    Top = 5
    Width = 85
    Height = 21
    Ctl3D = False
    DefaultToday = True
    NumGlyphs = 2
    ParentCtl3D = False
    YearDigits = dyTwo
    TabOrder = 3
    Text = '07/12/06'
  end
  object cdsRecordatorio: TSQLClientDataSet
    CommandText = 
      'select * '#13#10'from RECORDATORIO'#13#10'where '#13#10'  RECORDATORIO.FECHA >= :f' +
      'echaIni'#13#10'  AND RECORDATORIO.FECHA < :fechaFin'#13#10'  AND RECORDATORI' +
      'O.ID_USUARIO = :id'#13#10'order by'#13#10'  FECHA desc'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'fechaIni'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaFin'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'id'
        ParamType = ptInput
      end>
    BeforeOpen = cdsRecordatorioBeforeOpen
    DBConnection = Datos.Con
    Left = 48
    Top = 200
    object cdsRecordatorioID: TIntegerField
      FieldName = 'ID'
      Required = True
    end
    object cdsRecordatorioFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
      Required = True
    end
    object cdsRecordatorioID_USUARIO: TSmallintField
      FieldName = 'ID_USUARIO'
      Required = True
    end
    object cdsRecordatorioRECORDATORIO: TStringField
      FieldName = 'RECORDATORIO'
      Required = True
      Size = 256
    end
  end
  object sRecordatorio: TDataSource
    DataSet = cdsRecordatorio
    Left = 80
    Top = 200
  end
end
